function inttostr(n:int64):string;
begin
str(n,result);
end;